﻿Public Class OptionsForm

    Private _load As Boolean = False

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub OptionsForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        _load = True
        CheckBox1.Checked = Settings.FocusResponseBody
        _load = False
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If Not _load Then
            Settings.FocusResponseBody = CheckBox1.Checked
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If Not _load Then
            Settings.Wordwrap = CheckBox2.Checked
        End If
    End Sub
End Class